www.gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\faqModifySave.asp
<!--#include file = "include/sysbase.asp"--> <% dim strSQL, cmdObj, rsObj dim nID nID = RealString(Request.Form("id")) Set cmdObj = Server.CreateObject("ADODB.Command") Set rsObj = Server.CreateObject("ADODB.RecordSet") cmdObj.CommandText = "SELECT top 1 * FROM faq WHERE id = " & nID cmdObj.CommandType = adCmdText Set cmdObj.ActiveConnection = conn rsObj.Open cmdObj, , adOpenKeyset, adLockOptimistic rsObj("question") = Request.Form("question") rsObj("answer") = Request.Form("answer") rsObj.Update ' Response.Write rsObj("id") ' Response.End ' rsObj.movelast %> <script language = Javascript> <!-- alert("修改成功!"); window.location = "<%=Session("adminOldUrl")%>" --> </script> <% rsObj.Close set rsObj = nothing CloseConn() %>